home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Tools for Macintosh
/
Power Tools for Macintosh (SoftBit)(1992).iso
/
Applications
/
Alpha 4.01
/
ACMDS
/
loopMacro
< prev
next >
Wrap
Text File
|
1990-08-15
|
540b
|
32 lines
; Karl J. Smith
; 8/15/90
; email: ksmith@jarthur.claremont.edu
;
; Warning: this macro turns your computer into a dumb clock.
; :-)
;
; To quit, hit the debugger key, then type sm 0 a9f4 <return> g 0
; or type 'es' in MacsBug.
(define loopMacro
endOfBuffer
previousLine
beginningOfLine
setMark
endOfLine
markHilite
type "; The current time is: "
setMark
type "S"
markHilite
acmd "Paste Time"
beginningOfBuffer
; -- Refresh the screen via insertToTop
insertToTop
acmd "Delay"
loopMacro
)
; The current time is: 9:29:57 AM